﻿Public Class rp_BH_BanHangNuocNgoai
    Dim sochungtu As String
    Dim vtongtien As Double
    Public Sub New(ByVal sochungtu As String)
        InitializeComponent()
        Me.sochungtu = sochungtu
    End Sub
    Public Sub setTongtien(ByVal s As Double)
        '   InitializeComponent()
        Me.vtongtien = s
    End Sub

    Private Sub rp_BH_BanHangNuocNgoai_BeforePrint(sender As Object, e As System.Drawing.Printing.PrintEventArgs) Handles Me.BeforePrint
        'Me.BHBanHangTableAdapter.Fill(Me.PcV_FISHDataSet1.BHBanHang, 2)
        Me.BHBanHangChiTietTableAdapter.Fill(Me.PcV_FISHDataSet1.BHBanHangChiTiet)
        Dim position As Integer = Me.BHBanHangBindingSource.Find("sochungtu", sochungtu)
        Me.BHBanHangBindingSource.Position = position
        Me.Ten.Value = "Công ty CP Giải Pháp ERP Phong Cách Việt "
        Me.DiaChi.Value = "123 Lâm Văn Bền Phường Tân Khiểng  Quận 7 TP.HCM "
        Me.doc_chu.Value = Editor.NumToText(vtongtien) & " " & "đồng"
        '  Me.RequestParameters = False
    End Sub
End Class